home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 97
/
097.d81
/
bytes 97
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
89 lines
8 poke52,56:poke56,56:clr
10 dv=peek(186):ifdv<8thendv=8
12 poke53281,0:poke53280,0:print"[147]":gosub60000
15 sys57812"catmeis/cm",dv,0:poke780,0:poke781,0:poke782,192:sys65493
20 dd=dv:fori=8to16:open2,i,2:close2
22 ifi=dvthen26
24 ifst=0thendd=i:i=16
26 next
100 cat=49152:cm=51968
110 fori=1to4:readm$(i):next
112 data " [214]iew a [198]ont "
113 data " [195]onvert a [198]ont "
114 data " [195]onfigure [196]rives "
115 data " [210]eturn to [204][207][193][196][211][212][193][210] "
116 print"[147]"
118 sysca+15,5,35,2,18,105,8
119 sysca+15,8,32,4,16,32,14
120 printtab(9)"[159][207] [195] [208] [198] [207] [206] [212] [201] [218] [197] [210]"
130 poke214,7:print"[154]":fori=1to4:printtab(10)m$(i):print:next
150 m=1
151 poke214,20:print:print" [211]ource ="dvtab(20)"[196]estination ="dd
152 poke214,5+m*2:print:printtab(10)""m$(m)"[145]"
154 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then154
156 ifa$=chr$(13)then180
158 printtab(10)"[154]"m$(m)
160 ifa$="[145]"thenm=m-1:ifm<1thenm=4
162 ifa$=""thenm=m+1:ifm>4thenm=1
164 goto152
180 onmgosub200,300,400,500
182 goto151
200 sysca+18,80
202 sysca,"$:*=p",dv,53248,18,3,16,15,1
203 iff$=""thensysca+21,80:return
205 sys57812f$,dv,0:poke780,0:poke781,0:poke782,56:sys65493
208 print"[147]"
210 sysca+15,2,39,5,15,58,4
212 sysca+15,4,37,7,13,32,1
220 poke53272,31
230 poke214,7:print:printtab(5)"[158]@abcdefghijklmnopqrstuvwxyz[\]^_"
232 printtab(5)" !"chr$(34)"#$%&'()*+,-./0123456789:;<=>?"
234 printtab(5)"[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
240 poke214,18:print:print" [154][208]ress a key[154] to return to the [205]enu"
250 geta$:ifa$=""then250
255 print"[147]":poke53272,22
260 sysca+21,80:return
300 sysca+18,80
302 sysca,"$:*=p",dv,53248,18,3,16,15,1
303 iff$=""thensysca+21,80:return
305 sys57812f$,dv,0:poke780,0:poke781,0:poke782,56:sys65493
310 syscm,14336,18496,728
320 fi$=left$(f$+" ",12)+"font"
330 sys57812fi$,dd:poke193,64:poke194,72:poke174,31:poke175,75:sys62954
340 sysca+21,80:return
400 sysca+18,80
410 sysca+15,9,31,13,21,102,3
412 sysca+15,11,29,15,19,32,3
420 poke214,15:print:printtab(13)"[154][211]ource ="dv
430 printtab(13)"[154][196]estination ="dd
435 poke214,22:print:print" [211][154] - [195]ycle [211]ource [196][154] - [195]ycle [196]estination
437 [153]" cont(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)cont when done"
440 [161]a$:[139]a$[179][177][199](13)[175]a$[179][177]"s"[175]a$[179][177]"d"[167]440
450 [139]a$[178][199](13)[167][158]ca[170]21,80:[142]
460 [139]a$[178]"d"[167]470
462 dv[178]dv[170]1:[139]dv[177]16[167]dv[178]8
464 [159]2,dv,2:[160]2:[139]st[178][171]128[167]462
466 [137]490
470 dd[178]dd[170]1:[139]dd[177]16[167]dd[178]8
480 [159]2,dd,2:[160]2:[139]st[178][171]128[167]470
490 [151]214,15:[153]:[153][163]26)" cmdcmdcmd"dv
492 [153][163]26)" cmdcmdcmd"dd
494 [137]440
500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
510 [139]er[179][177]63[167][151]56,160:[156]:[153]"load":[128]
520 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
530 [153]"run"
540 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"s0:bytes 97":[160]15:[148]"bytes 97",8:[128]
60000 [153]"load":z$[178]" print# ":[151]214,10:[153]
60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
60030 z$(0)[178]"(NULL) len (NULL) asc (NULL) (NULL) (NULL) right$ (NULL) val (NULL)":z$(1)[178]"by ascender (NULL)ucker
60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
60050 z$(3)="[212]his program is the copyrighted work
60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$. right$t is not"
60070 z$(5)[178]"shareware or in the public domain."
60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]